home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games Extra 1996 June / Amiga Games Extra 1996 #6.iso / userbox / publicdomain / adagis v3.1 / install / español.ins < prev    next >
Text File  |  1996-03-20  |  2KB  |  97 lines
  1. ;Install script for Adagis v3.1
  2. ;© 1996 Stv
  3. ;(Hope it works !)
  4. ;
  5. ;Install the main program
  6. ;
  7. (set @language "español")
  8. (set directory
  9.     (askdir
  10.         (prompt "Dónde quieres instalar Adagis ?\n(no se creará nuevo directorio)")
  11.         (help @askdir-help)
  12.         (default "Sys:WBStartUp")
  13.     )
  14. )
  15. (copyfiles
  16.     (prompt "Copiar Adagis program:")
  17.     (help @copyfiles-help)
  18.     (dest directory)
  19.     (source "/Adagis")
  20.     (infos)
  21. )
  22. ;
  23. ;Install Adagis.data
  24. ;
  25. (set quinfitxer
  26.     (askchoice
  27.         (help @askchoice-help)
  28.         (prompt "Qué Adagis.data debo instalar ?\n\nSE BORRARÁ CUALQUIER ADAGIS.DATA ANTERIOR\n")
  29.         (choices "Inglés" "Catalán" "Español" "Ninguno")
  30.         (default 2)
  31.     )
  32. )
  33. (if (<> 3 quinfitxer)            ; Delete file if required
  34.     (delete "s:adagis.data"
  35.         (help @delete-help)
  36.         (prompt "Borrando Adagis.data existente")
  37.     )
  38. )
  39. (select quinfitxer
  40.     (copyfiles
  41.         (prompt "Copiando Adagis.data.eng")
  42.         (help @copyfiles-help)
  43.         (dest "S:")
  44.         (source "/s/Adagis.data.eng")
  45.         (newname "s:Adagis.data")
  46.     )
  47.     (copyfiles
  48.         (prompt "Copiando Adagis.data.cat")
  49.         (help @copyfiles-help)
  50.         (dest "S:")
  51.         (source "/s/Adagis.data.cat")
  52.         (newname "s:Adagis.data")
  53.     )
  54.     (
  55.         (copyfiles
  56.             (prompt "Copiando Adagis.data.esp")
  57.             (help @copyfiles-help)
  58.             (dest "S:")
  59.             (source "/s/Adagis.data.esp")
  60.             (newname "s:Adagis.data")
  61.         )
  62.         (message "\n\n\nEl Adagis.data en español contiene sólo 10,\n"
  63.              "refranes, ya que nadie me ha enviado refranes en español.\n\n"
  64.              "Por favor, si creas un Adagis.data en español ponte en\n"
  65.              "contacto conmigo.")
  66.     )
  67.     (message "\n\n\nRecuerda que Adagis requiere\nun Adagis.data en el directorio S:\n"
  68.              "\n\nSi creas tu propio fichero (ver docs),\npor favor ponte en contacto conmigo.\n")
  69. )
  70. ;
  71. ;Install locale files
  72. ;
  73. (set locales
  74.     (askoptions
  75.         (prompt "¿ Qué catálogos debo instalar ?")
  76.         (help @askoptions-help)
  77.         (choices "Español" "Catalán")
  78.         (default %01)
  79.     )
  80. )
  81. (if (in locales 0)
  82.     (copyfiles
  83.         (source "/locale/catalogs/español/adagis.catalog")
  84.         (dest "locale:catalogs/español/")
  85.         (prompt "Copiando catalogos en español.")
  86.         (help @copyfiles-help)
  87.     )
  88. )
  89. (if (in locales 1)
  90.     (copyfiles
  91.         (source "/locale/catalogs/català/adagis.catalog")
  92.         (dest "locale:catalogs/català/")
  93.         (prompt "Copiando catálogos en catalán.")
  94.         (help @copyfiles-help)
  95.     )
  96. )
  97.